1000 REM*******************************
1010 REM******                   ******
1020 REM***      HIRES COLOSSAL     ***
1030 REM***       -- DEMO --        ***
1040 REM******                   ******
1050 REM*******************************
1060 REM
1070 REM    (C) 1/86 BY
1080 REM                F.GRAEF
1090 REM                6831 PLANKSTADT
1100 REM
1110 :
1120 :
1130 REM*** RAM-ENDE HERUNTERSETZEN ***
1140 :
1150 SYS 52225,0
1160 CLR
1170 :
1180 :
1190 REM***** ALLE SCHIRME RICHTEN ****
1200 :
1210 FOR I=1 TO 4
1220 :         SYS 52225,1,I
1230 :         d
 0,12
1240 :do I*20,I*20,"
"+STR$(I),1,1,12
1250 :    dB I*20+15,I*20+3,10,10,1
1260 d10,I*10+100,I*20+10,I*10+110,1
1270 :         d 0,199,319,0,1
1280 :   d 120+I*10,0,120+I*10,199,1
1290 :         df 1
1300 NEXT I
1310 :
1320 :
1330 REM***** ALLE SCHIRME ZEIGEN *****
1340 :
1350 FOR I=1 TO 2
1360 :       FOR X=1 TO 4
1370 :            SYS 52225,1,X
1380 :            df1
1390 :       NEXT X
1400 NEXT I
1410 :
1420 :
1430 REM**** ALLE SCHIRME SAVEN *******
1440 :
1450 FOR I=1 TO 4
1460 :        SYS 52225,1,I
1470 SYS52225,3,1,8,2,"S"+STR$(I)+",P,W"
1480 NEXT I
1490 :
1500 :
1510 REM SCHIRME UEBEREINANDER BLENDEN
1520 :
1530 SYS 52225,1,1
1540 FOR I=2 TO 4
1550 :         SYS 52225,2,I
1560 NEXT I
1570 df 4
1580 :
1590 :
1600 REM*** ALLE SCHIRME LOESCHEN *****
1610 :
1620 FOR I=1 TO 4
1630 :        SYS 52225,1,I
1640 :        d
 0,12
1650 NEXT I
1660 :
1670 :
1680 REM****** SCHIRME LADEN **********
1690 :
1700 FOR I=1 TO 4
1710 :        SYS 52225,1,I
1720 :        SYS 52225,4,"S"+STR$(I),8
1730 NEXT I
1740 :
1750 :
1760 REM*** ALLE SCHIRME ZEIGEN *******
1770 :
1780 FOR I=1 TO 2
1790 :       FOR X=1 TO 4
1800 :            SYS 52225,1,X
1810 :            df1
1820 :       NEXT X
1830 NEXT I
1840 :
1850 :
1860 REM PROGRAMMENDE